home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Internet / News / Alexandra.0.82 / Source / instr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-01-30  |  594 b   |  35 lines
  1. #import "instr.h"
  2. #import <objc/objc.h>
  3. #include <ctype.h>
  4.  
  5. const char *instr(const char *big,const char *little,int case_matters)
  6. {
  7.     register char *t, *s, *x;
  8.  
  9.     for (t = (char *)big; *t; t++) {
  10.     for (x=t,s=(char *)little; *s; x++,s++) {
  11.         if (!*x)
  12.         return (char *)0;
  13.         if (case_matters == YES) {
  14.         if(*s != *x)
  15.             break;
  16.         } else {
  17.         register char c,d;
  18.         if (isupper(*s)) 
  19.             c = tolower(*s);
  20.         else
  21.             c = *s;
  22.         if (isupper(*x)) 
  23.             d = tolower(*x);
  24.         else
  25.             d = *x;
  26.         if ( c != d )
  27.             break;
  28.        }
  29.     }
  30.     if (!*s)
  31.         return t;
  32.     }
  33.     return (char *)0;
  34. }
  35.